clear all
R=150;
C=50*10^(-6);
U=5;
Ur=5;
Uc=0;
T=1e-3;
kmax=100;
for k=1:kmax
    Uc=(U*T+Uc*R*C)/(C*R+T);
    Ur=U-Uc;
    Ucmas(k)=Uc;
end
plot(1:kmax,Ucmas)

    
    